home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 46 / 64er_Magazin_Sonderheft_46_19xx_Markt__Technik_de_Side_B.d64 / ede 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  36KB  |  854 lines
  1. 2 rem  a. eder
  2. 3 poke808,225
  3. 4 data169,187,141,24,3,169,192,141,25,3,120,173,14,221,41,254,141,14,221
  4. 5 data173,15,221,41,254,141,15,221,169,2,141,6,221,169,0,141,7,221,169,255
  5. 6 data141,4,221,169,255,141,5,221,169,31,141,13,221,169,130,141,13,221,169
  6. 7 data65,141,14,221,141,15,221,88,169,96,141,149,192,141,156,192,96,169,3
  7. 8 data141,2,212,169,232,141,3,212,169,9,141,5,212,169,0,141,6,212,169,0,141
  8. 9 data9,212,141,10,212,234,234,169,36,141,12,212,169,165,141,13,212,169,3
  9. 10 data141,16,212,169,232,141,17,212,169,101,141,19,212,169,34,141,20,212
  10. 11 data234,169,65,141,4,212,141,18,212,169,17,141,11,212,234,165,15,141,24
  11. 12 data212,234,234,76,0,192,173,4,212,41,254,141,4,212,173,11,212,41,254,141
  12. 13 data11,212,173,18,212,41,254,141,18,212,96,1,1,120,72,138,72,152,72,172
  13. 14 data13,221,48,4,88,76,86,254,172,186,192,136,208,45,32,160,192,174,185
  14. 15 data192,202,208,3,174,32,193,189,66,193,141,0,212,141,7,212,141,14,212
  15. 16 data189,32,193,141,1,212,141,8,212,141,15,212,142,185,192,188,100,193,32
  16. 17 data136,192,140,186,192,173,252,7,73,1,141,252,7,88,76,188,254,169,71,141
  17. 18 data24,3,169,254,141,25,3,96,234,234,234,234,234,234,234,234,234,33,26
  18. 19 data29,29,32,32,34,39,29,29,29,32,32,26,26,26,19,19,39,39,29,32,39,26,32
  19. 20 data34,34,29,34,32,39,32,39,32,0,20,69,69,219,219,207,18,69,69,69,219,219
  20. 21 data20,20,20,137,137,18,18,69,219,18,20,219,207,207,69,207,219,18,219,18
  21. 22 data219,0,2,2,2,2,2,1,1,2,2,2,1,1,2,2,2,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0
  22. 23 forn=0to390:readew:poke49152+n,ew:next
  23. 24 if peek(43)=181 then:sys49152:poke53269,0
  24. 25 poke3508,0:poke43,181:poke44,13:clr
  25. 26 z1=rnd(-ti):sys49227:deffnzu(ez)=int(rnd(1)*(ez-az+1))+az
  26. 27 deffnpr(sa)=1024+sa+ze*40:deffnfa(sa)=55296+sa+ze*40
  27. 28 ct=1:cf=1:cr=0:v=53248:sp=2040:goto741
  28. 29 ze=ze-1:forn=0to6step3
  29. 30 ze=ze+1:z(n+2)=cr:ifcr=0then:z(n+2)=fnzu(10)
  30. 31 z(n+1)=fnzu(ez):z(n+3)=z(n+1)*z(n+2)
  31. 32 ifz(n+2)>9then:pokefnpr(sa+3),49:pokefnfa(sa+3),fr%:z(n+2)=z(n+2)-10
  32. 33 ifz(n+1)>9then:pokefnpr(sa-1),49:pokefnfa(sa-1),fr%:z(n+1)=z(n+1)-10
  33. 34 pokefnpr(sa),(z(n+1)+48):pokefnfa(sa),fr%:pokefnpr(sa+2),42:pokefnfa(sa+2),fr%
  34. 35 pokefnpr(sa+4),(z(n+2)+48):pokefnfa(sa+4),fr%
  35. 36 pokefnpr(sa+6),61:pokefnfa(sa+6),fr%:nextn:ze=ze-2:return
  36. 37 pokev+21,(peek(v+21)or1):gosub105
  37. 38 pokev+21,(peek(v+21)and254):return
  38. 39 forn=0to6:getl$:next:l$="":fe%=0
  39. 40 forn=3to9step3
  40. 41 z$=str$(z(n)):zi=len(z$):i%=0:lo$=""
  41. 42 uh%=uh%+1:l$="":getl$:ifl$=""anduh%=<ue%andfe%<1then42
  42. 43 ifuh%>ue%orfe%>=1then49
  43. 44 ifasc(l$)<48orasc(l$)>57then42
  44. 45 lo$=lo$+l$:i%=i%+1
  45. 46 ifuh%<ue%then:pokefnpr(sa+7+i%),(val(l$)+48):pokefnfa(sa+7+i%),fr%
  46. 47 ifi%<=(len(z$)-2)then42
  47. 48 ze=ze+1:ifval(lo$)<>z(n)then:fe%=fe%+1:gosub153
  48. 49 nextn
  49. 50 ze=ze-3:iffe%<1then52
  50. 51 gosub90
  51. 52 ifuh%<ue%then54
  52. 53 gosub94:cl=cl+1
  53. 54 iffe%<1anduh%<((bi%*ue%)/5)then:gosub98
  54. 55 return
  55. 56 pokesp+3,38:pokesp+4,36:pokev+6,x:pokev+7,y
  56. 57 pokev+3,y-38:pokev+5,y-38:pokev+9,y-15:pokev+8,x+3
  57. 58 pokev+21,(peek(v+21)or30)
  58. 59 forxh=x-3tox+25:pokev+2,xh:pokev+4,xh:pokev+8,2*x+8-xh:nextxh:return
  59. 60 pokesp+3,38:pokev+6,x:pokev+7,y
  60. 61 pokev+2,x-3:pokev+3,y-38
  61. 62 pokev+4,x-3:pokev+5,y-38
  62. 63 pokev+21,(peek(v+21)or14):return
  63. 64 pokev+21,(peek(v+21)and224)
  64. 65 pokesp+4,peek(sp+4):pokesp+3,38
  65. 66 pokev+6,x:pokev+7,y
  66. 67 pokev+2,x+25:pokev+3,y-38
  67. 68 pokev+4,x+25:pokev+5,y-38
  68. 69 pokev+8,x-20:pokev+9,y-15
  69. 70 pokev+21,(peek(v+21)or30):return
  70. 71 pokesp+4,37:pokesp+3,38
  71. 72 pokev+6,x:pokev+7,y
  72. 73 pokev+2,x-25:pokev+3,y-38
  73. 74 pokev+4,x-25:pokev+5,y-38
  74. 75 pokev+8,x+20:pokev+9,y-15
  75. 76 pokev+21,(peek(v+21)or30):return
  76. 77 pokesp+4,36:pokesp+3,39
  77. 78 pokev+6,x:pokev+7,y
  78. 79 pokev+2,x+25:pokev+3,y-38
  79. 80 pokev+4,x+25:pokev+5,y-38
  80. 81 pokev+8,x-20:pokev+9,y
  81. 82 pokev+21,(peek(v+21)or30):return
  82. 83 pokesp+4,37:pokesp+3,39
  83. 84 pokev+6,x:pokev+7,y
  84. 85 pokev+2,x-15:pokev+3,y+15
  85. 86 pokev+4,x-15:pokev+5,y+15
  86. 87 pokev+8,x+20:pokev+9,y-15
  87. 88 pokev+21,(peek(v+21)or30):return
  88. 89 v=53248:sp=2040:pokev+21,(peek(v+21)and225):return:rem ede aus
  89. 90 pokev+39,2
  90. 91 pokesp,33:pokev+1,(50+8*ze):if(24+8*sa)>254then:pokev,255:goto93
  91. 92 pokev,(24+8*sa)
  92. 93 gosub37:return
  93. 94 pokev+39,0
  94. 95 pokesp,42:pokev+1,(50+8*ze):if(24+8*sa)>254then:pokev,255:goto97
  95. 96 pokev,(24+8*sa)
  96. 97 gosub37:return
  97. 98 pokev+39,9
  98. 99 pokesp,43:pokev+1,(50+8*ze):if(24+8*sa)>254then:pokev,255:goto101
  99. 100 pokev,(24+8*sa)
  100. 101 pokev+21,(peek(v+21)or1)
  101. 102 form=0to40:pokev+29,(peek(v+29)or1):pokev+23,(peek(v+23)or1):nextm
  102. 103 form=0to30:pokev+29,(peek(v+29)and254):pokev+23,(peek(v+23)and254):nextm
  103. 104 gosub38:return
  104. 105 si=54272:fl=si:fh=si+1:w=si+4:a=si+5:h=si+6:l=si+24
  105. 106 form=1to20
  106. 107 pokel,15:pokea,17:pokeh,17:pokefh,19:pokefl,137:pokew,17
  107. 108 fort=1to50:nextt:pokev+29,(peek(v+29)or1):pokev+23,(peek(v+23)or1)
  108. 109 pokew,0:pokea,0:pokeh,0
  109. 110 pokel,15:pokea,17:pokeh,17:pokefh,39:pokefl,18:pokew,17
  110. 111 fort=1to20:nextt:pokev+29,(peek(v+29)and254):pokev+23,(peek(v+23)and254)
  111. 112 pokew,0:pokea,0:pokeh,0:nextm:return
  112. 113 pokev+29,peek(v+29)or128:pokev+23,peek(v+23)or128:pokev+21,peek(v+21)or128:return
  113. 114 pokev+29,peek(v+29)or64:pokev+23,peek(v+23)or64:pokev+21,peek(v+21)or64:return
  114. 115 pokev+46,10:pokesp+7,50:pokev+14,x:pokev+15,y:gosub113:return
  115. 116 pokev+29,peek(v+29)or32:pokev+23,peek(v+23)or32:pokev+21,peek(v+21)or32:return
  116. 117 pokev+45,9:pokesp+6,51:pokev+12,x:pokev+13,y:gosub114:return
  117. 118 pokev+44,11:pokesp+5,45:pokev+10,x:pokev+11,y:pokev+21,peek(v+21)or32:return
  118. 119 pokev+45,13:pokesp+6,50:pokev+12,x:pokev+13,y:gosub114:return
  119. 120 pokev+46,0:pokesp+7,50:pokev+14,x:pokev+15,y:gosub113:return
  120. 121 pokev+46,4:pokesp+7,47:pokev+14,x:pokev+15,y:gosub113:return
  121. 122 pokev+46,3:pokesp+7,49:pokev+14,x:pokev+15,y
  122. 123 pokev+21,peek(v+21)or128:return
  123. 124 pokev+44,11:pokev+45,1:pokesp+5,45:pokesp+6,44:pokev+10,x:pokev+11,y
  124. 125 pokev+12,x+25:pokev+13,y-10:pokev+21,peek(v+21)or96:return
  125. 126 pokev+46,1:pokesp+7,48:pokev+14,x:pokev+15,y:pokev+21,peek(v+21)or128:return
  126. 127 pokev+46,8:pokesp+7,46:pokev+14,x:pokev+15,y:gosub113:return
  127. 128 pokev+46,1:pokesp+7,48:pokev+14,x:pokev+15,y:gosub113:return
  128. 129 pokev+44,1:pokesp+5,41:pokev+10,x:pokev+11,y:pokev+21,peek(v+21)or32:return
  129. 130 pokev+45,10:pokesp+6,49:pokev+12,x:pokev+13,y:pokev+21,peek(v+21)or64:return
  130. 131 pokev+44,1:pokesp+5,40:pokev+10,x:pokev+11,y:gosub116:return
  131. 132 pokev+44,4:pokesp+5,47:pokev+10,x:pokev+11,y:gosub116:return
  132. 133 pokev+45,1:pokesp+6,41:pokev+12,x:pokev+13,y:gosub114:return
  133. 134 pokev+29,peek(v+29)and31:pokev+23,peek(v+23)and31:rem sprites ohne ede aus
  134. 135 pokev+21,peek(v+21)and31:return
  135. 136 s=0:n=0:m=2112:x=120:y=100
  136. 137 forn=0to62:reads:pokem+n,s:nextn
  137. 138 ifm<3264then:m=m+64:goto137
  138. 139 return
  139. 140 pokev+40,1:pokev+41,0:pokev+43,1:pokev+42,1:pokesp,33:pokesp+4,37
  140. 141 pokesp+3,39:pokesp+2,35:pokesp+1,34
  141. 142 pokev+29,(peek(v+29)or30):pokev+23,(peek(v+23)or30):return
  142. 143 gosub29:gosub39:gosub89:gosub134
  143. 144 rc=0:gets$:ifuh%>ue%orfe%>0ands$<>"[135]"then:rc=1:gosub150
  144. 145 return
  145. 146 co=15:cs=15
  146. 147 poke53280,co:poke53281,cs:print chr$(142)chr$(147);:return
  147. 148 gets$:ifs$<"0"ors$>"9"then148
  148. 149 return
  149. 150 cm=ce(2):cx=2:forn=3to9:ifce(n)>=cmthen:cm=ce(n):cx=n
  150. 151 next:ifcm>=3orcl>=5then:rc=2
  151. 152 return
  152. 153 ce(z(n-1))=ce(z(n-1))+1:ce(z(n-2))=ce(z(n-2))+1:return
  153. 154 data0,96,56,0,56,224,17,31,224,59,153,48,31,61,184,14,63,248:rem teufel
  154. 155 data4,51,152,4,24,48,8,15,234,8,7,198,8,3,131,4,15,231,2,31,254,3,63,252
  155. 156 data1,254,252,0,252,124,0,62,252,0,31,248,0,31,240,0,124,62,0,56,28
  156. 157 data56,0,0,120,0,0,248,0,96
  157. 158 data252,0,254,127,7,158,112,255,139,48,255,136,31,255,248,31,128,252
  158. 159 data63,192,252,63,255,254,62,191,174,61,182,183,125,182,183,59,118,213
  159. 160 data59,118,213,27,50,214,25,186,166,13,154,172,4,146,40,2,73,80
  160. 161 data0,0,0,0,0,0,0,0,0,0,0,0,15,0,240,15,0,240
  161. 162 data15,0,240,0,0,0,0,255,0,0,255,0,0,0,0,0,0,0
  162. 163 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  163. 164 data0,0,0,56,0,0,92,0,0,219,0,0,182,128,0,237,192,0
  164. 165 data83,96,0,86,248,0,21,184,0,11,96,0,2,192,0,2,128,0
  165. 166 data0,128,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00
  166. 167 data0,0,0,0,0,28,0,0,58,0,0,219,0,1,109,0,3,183
  167. 168 data0,6,154,0,31,106,0,29,168,0,6,208,0,3,64,0,1,64
  168. 169 data0,1,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00
  169. 170 data62,0,240,127,135,252,255,255,254
  170. 171 data255,255,255,255,255,255,251,187,223,243,185,207,119,155,223,119,217,207
  171. 172 data115,219,239,123,219,239,123,219,239,123,153,207,123,189,158,243,189,206
  172. 173 data247,185,158,231,187,60,195,11,28,193,137,8,128,0,0,0,0,0
  173. 174 data0,1,252,0,7,254,0,31,255,0,63,255,0,127,255,0,255,255 
  174. 175 data7,255,239,15,255,206,63,255,158,63,255,158,127,251,156,127,247,190
  175. 176 data127,247,158,255,183,14,247,119,62,238,215,31,238,211,31,238,195,31
  176. 177 data108,198,62,204,206,28,204,88,24
  177. 178 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  178. 179 data0,0,1,8,224,1,140,240,1,206,184,1,254,172,15,255,171
  179. 180 data255,255,107,255,255,27,255,174,7,255,172,15,255,164,15,255,128
  180. 181 data5,255,128,4,239,128,6,201,128,0,109,192,0,0,0,0
  181. 182 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,128,7
  182. 183 data49,128,15,115,128,29,127,128,53,255,240,85,255,255,213,255,255
  183. 184 data214,117,255,216,53,255,192,37,255,224,1,255,224,1,255,64,1
  184. 185 data246,192,1,146,0,3,182,0,0
  185. 186 data0,0,0,0,0,0,0
  186. 187 data2,0,0,36,0,0,79,0,2,88,3,193,112,15,241,240,28
  187. 188 data24,248,59,220,120,52,44,60,109,150,60,108,86,60,55,150,120
  188. 189 data 59,44,120,24,92,240,7,185,240,15,255,224,63,255,224,127,255
  189. 190 data128,192,0,0
  190. 191 data0,0,0,12,249,128,7,255,0,4,113,0
  191. 192 data9,36,128,8,32,128,12,113,128,15,255,128,15,175,128,25,220
  192. 193 data192,126,251,240,247,7,120,231,255,56,231,255,56,231,255,56,179
  193. 194 data254,104,67,254,16,1,252,0,3,254,0,5,141,0,9,84,128
  194. 195 data3,192,0,0,128,0,1,198,0,2,239,0,3,223,0,3
  195. 196 data230,0,3,192,0,6,0,0,0,224,0,1,240,0,3,248,0
  196. 197 data2,232,0,6,236,0,5,244,0,7,252,0,7,252,0,3,252
  197. 198 data0,1,250,96,2,101,147,5,10,12,0,0,0,0,0,12
  198. 199 data0,7,14,0,15,143,0,15,135,0,7,115,3,240,252,31,254
  199. 200 data252,63,255,252,127,255,180,127,255,120,127,254,120,191,254,48,159
  200. 201 data252,48,71,244,16,64,42,0,64,0,0,128,0,0,131,3,0
  201. 202 data100,132,128,24,120,0,0,0,0
  202. 203 data1,160,0,15,64,0,31
  203. 204 data128,0,55,192,0, 63,192,0, 63,128,24,61,128,60,27,192,126
  204. 205 data7,224,126,31,240,126,39,240,126,15,248,124,9,248,124,30,248
  205. 206 data120,63,248,248,63,240,240,63,241,224,63,227,192,31,207,0,63
  206. 207 data254,0,80,248,0
  207. 208 data0,0,0,0,0,0,0,0,0,0,0
  208. 209 data0,0,0,0,0,0,0,3,252,0,12,3,128,16,0,64,32
  209. 210 data0,0,64,0,0,64,240,0,135,254,0,159,255,129,191,255,247
  210. 211 data191,255,222,127,255,248,31,255,128,7,254,0,4,242,0,6,3,0
  211. 212 data0,0,0,0,0,48,0,0,72,0,0,134,0,0,143
  212. 213 data0,0,134,0,0,68,0,0,34,0,0,48,0,0,48,0,0
  213. 214 data24,0,62,12,129,255,206,127,255,254,15,255,255,255,255,255,15
  214. 215 data255,255,255,255,254,127,255,252,7,192,240,0,0,0
  215. 216 data7,192,0,31,254,0,63,255,192,63,255,240,31,111,248,31,7,252,207:rem schm
  216. 217 data131,252,39,195,252,87,243,248,63,255,240,11,255,192,15,255,248
  217. 218 data3,127,252,1,191,254,2,239,254,2,135,255,0,3,255,0,0
  218. 219 data255,0,0,30,0,0,0,0,0,0
  219. 220 data1,16,0,1,176,0
  220. 221 data1,240,0,3,248,0,10,74,0,5,244,0,11,186,0,7,252
  221. 222 data128,7,252,192,7,252,192,7,252,192,15,254,96,15,254,96,15
  222. 223 data254,96,15,254,224,15,255,192,15,255,0,7,252,0,3,248,0
  223. 224 data6,236,0,0,0,0
  224. 225 data0,224,224,1,241,240,3,255,248,7
  225. 226 data223,124,7,255,252,7,241,252,3,241,248,1,255,240,0,255,160
  226. 227 data0,48,112,0,239,248,1,31,252,0,111,254,0,147,254,0,125
  227. 228 data254,0,254,254,1,254,254,1,253,252,0,255,248,1,127,240,0,159,192
  228. 229 gosub146
  229. 230 print"[149]{$7f}{$7f}[146]"spc(36)"[169][146][169]";
  230. 231 print" [223][223][146]"spc(34)"[169][146][169]"
  231. 232 print"  [223][223][146]"spc(13)"[172][162][162][162][162][162][187]"spc(12)"[169][146][169]"
  232. 233 print"   [223][223][146]"spc(13)"[158][223]   [146][169]"spc(12)"[149][169][146][169]"
  233. 234 print"    [223][223][146]"spc(28)"[169][146][169]"
  234. 235 print"     [223][223][146]"spc(26)"[169][146][169]"
  235. 236 printspc(6)"[223][223][146]"spc(24)"[169][146][169]":print
  236. 237 printspc(15)"[172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  237. 238 printspc(9)"     [146] [161][154]               [149][146][161]"
  238. 239 print" [129][213][195][195][201]    [149] [146] [194]  [146] [161][154]       [146][169][223]      [149][146][161]"
  239. 240 print" [129][194]  [129][146][194]    [149] [146][195][219][195] [146] [161][154]    [206][205][206]  [205]  [206][205][206][149][146][161] [129][162][162][162][162][162][162]"
  240. 241 print" [194]  [129][146][194]    [149] [146] [194]  [146] [161][154] [206][205][206]  [205]   [205][206] [206] [149][146][161] [129] [146]     "
  241. 242 print" [194]  [129][146][194]    [149]    [209][146] [161][154][206]  [205]       [205]   [149][146][161] [129] [146]     "
  242. 243 print" [194] [146][169][129][203]    [149]     [146] [161]               [149][146][161] [129] [146]     "
  243. 244 print" [194][169]  [129][169]  [146] [149]     [146] [161]               [149][146][161] [129] [144][146][194]  [129]  "
  244. 245 print" [202]  [169]   [146] [149] [188][146][162][190] [146] [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146] [129] [144][146][194] [194][129]  "
  245. 246 print"   [169] [170]  [146] [149]     [146]"spc(19)"[129] [146]  [144][194][129]  "
  246. 247 print"  [169]  [170][209] [146]"spc(25)" [144][146][194]  [129]  "
  247. 248 print"     [170] [146][169]"spc(25)" [144][146][194]  [129]  "
  248. 249 print"     [170][146][169]  [150][169]   [164][164][164][164][164][164][164][164][164][164][164][164][164]   [223][146]   [129][223][223][146] [144][194][129]  "
  249. 250 print"     [146][169]  [150][169]   [206]             [205]   [223][146]   [129][223][223][144][146][194][129]  "
  250. 251 print"    [146][169]  [150][169]   [206]               [205]   [223][146]   [129][223][223]  "
  251. 252 printspc(6)"[150][169]   [206]                 [205]   [223][146]   [129][223]  "
  252. 253 print"     [150][169]    [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]    [223][145][145]"
  253. 254 x=80:y=190:gosub124:y=215:forx=225to210step-1:y=y-1:gosub71:nextx
  254. 255 fory=190to154step-1:gosub71:nexty:gosub83:return
  255. 256 gosub146
  256. 257 printspc(12)"[169]{$7f}[146]"spc(8)"[169]{$7f}[146]"spc(6)"[169]{$7f}[169]{$7f}
  257. 258 [153]"  newfreusrusrfrewaitnew   print#Nusrfreprint#MNM    Nposrnd{$7f}wait    print#Nusrprint#N  M    N";
  258. 259 [153]" cos       waitnewprint#N"[166]6)"MNMN    MNMN"[166]6)"M  N
  259. 260 print"[167]         [188][146]  [152]N    M  [190]  [188][146] [152]M"spc(9)"MN
  260. 261 [153]"abs          waitintprint#(NULL)  int         waitrnd print#(NULL)         print#(NULL)
  261. 262 print"[161]          [146][161]   [181]         [146][161]           "
  262. 263 print"[181]          [182][190] [188][146]      [187]  [172][146]           "
  263. 264 print"[161]          [146][161]   [146][180] [158]  [158]  [146] [149] [169][146]Q   [175][185][162][185][175]   [190] [188]
  264. 265 [153]"abs          waitintrndverify *wait      wait verify waitstep   cos     logwait +   waitsgn";
  265. 266 [153]"then          wait  verify wait  cos logwait   verify wait   get       waitint rnd *
  266. 267 print" [187] [172][149]  [172][149][169]  [146][181]  [149] [146] [170]   [146][180]  [149] [146]   [180]       [182][146]  [149][180]
  267. 268 [153]"  usr verify  stepwaitsteplogcos"[166]6)"rnd *wait"[166]7)"int       waitget  verifysgn
  268. 269 print"[154] [183][146][162][175][149]  [146][169]"spc(19)"[170]       [146][180] [153][166][166][166]
  269. 270 [153]"cont    verify  contfrewaitnewandposnewfreusrtab(    logwait"[166]8)"       wait printspc(spc(
  270. 271 print"[154]    [149]  [154]             [188][146]   [153][166][166][166][146] [165]     [170]
  271. 272 [153]"cont    verify  cont              waitget printspc(spc(spc(wait  int     abs
  272. 273 print"[154][183][184][162][185][149]  [154]   [164][175]          [153][166][166][166][166][146]  [161]     [146][181]
  273. 274 [153]"    verify  wait contusr    freand       waitget     +     
  274. 275 print"    [149]  [146]"spc(9)"[154][187]      [146]"spc(6)"    [170]
  275. 276 [153]"    verify  wait"[166]10)"cont      waitint     sgn   abs
  276. 277 print"    [149]  [146]"spc(9)"[154][170]      [146][161]     [181]   [146][161]
  277. 278 [153]" printspc(spc(spc(verifyrnd printwaitspc(spc("[166]7)"contabs      abswait printspc(spc(spc(wait get   waitfn
  278. 279 print"  [153][166][166][166][166][166][166][166]"spc(6)"[154][161]      [170][146]  [153][166][166][166][146]  [149]  
  279. 280 [153][166]15)"contsgn       wait"[166]6)"rndverify *
  280. 281 x=90:y=200:gosub132:y=150:forx=75to150step.5:y=y+.1:gosub126:nextx:return
  281. 282 gosub146
  282. 283 print"        "spc(9)"[158][205][190]  [188][146][206]
  283. 284 [153]"        "[166]7)"syslenlenabs    waitsgnlenlenlenlen
  284. 285 print"        "spc(9)"[158][206][187]  [172][146][205][175][162][183]   [183][184][146][175]     [185]
  285. 286 [153]"  toandposnewusrtab(     usrwaitnewposposandandsysfrefre cos         logwait   cos log
  286. 287 print" [190]                  [188][190]           [146][161] [182]   [146][181]";
  287. 288 print"[161]";:for z=1 to 33:print" ";:next
  288. 289 print"[146]  [187] [172]
  289. 290 [153]"int";:[129] z[178]1 [164] 33:[153]" ";:[130]
  290. 291 [153]"waitint  verifysgn
  291. 292 print"[180]";:for z=1 to 33:print" ";:next
  292. 293 print"[182][146]  [149][181][146][165]
  293. 294 [153]"sgn";:[129] z[178]1 [164] 20:[153]" ";:[130]
  294. 295 [153]"B            abswait printspc(verifygetwaitint
  295. 296 print"[181]                   [172][146][170]            [146][180]  [153][166][166]
  296. 297 [153]"+                 andwaitfre  rnd          *waitandposand
  297. 298 print" [187]              C[146]  [158]H   [184][185]      [185][162][190]   [188]
  298. 299 [153]"  rnd              abswait sysH   printnot getverify    abswait abs     waitint
  299. 300 print"   [162]              [146] [153][168][168]  [154][175][184] [149][181]  [172][146]  [180]     [170]
  300. 301 [153]"     new           abswait  contandusr andwaitfre verifyabs  waitsgn  sgn     +
  301. 302 printspc(6)"[187]  [149]     [149]   [146][180] [154][190] [172][146] U[184][146]I[149][170]  [146][165][153]{$7c}[168][182]     [146][181]
  302. 303 [153]"  printnotnotnotspc(wait rnd*verify   newverifystepwaitsteprnd*wait cont+  wait  sysJ waitKverify+  waitintUfrewaitIrnd   *
  303. 304 print" [153][166][166][146]     [149][167]   [169][146][169]    [154][182]  [146][165]   [149][175][190]  [146][161][158]J.[146]K    
  304. 305 [153]"  UfrewaitI   verify+   *wait printnotnotspc( contsgn  wait  verifyusrfreand   *waitusrsysfre  sgn +
  305. 306 print"  [158]J [146]KU[184][146]I[149][182] S [146][181]     [154]  [170][146] [153][166][168]   [149][183][172][153][146][166][168]{$7c}  [149][190][146][191][188]
  306. 307 [153]"   systab( J.waitKverifyget   abswait UfrewaitIcont+   waitpos   UfrewaitI    UfrewaitI verifylog
  307. 308 print"U[184][146]I   [158][184][149][185]     [146] [158]J [146]K [154][187]   [188][146]  [158]J [146]K    J.[146]K
  308. 309 [153]"J.waitK verifyandcos       logwait     cont     frewaitand    printnot  sysnew
  309. 310 print" [183]   [149][162][185][175] [146][190][187]  [175][162][146]    [154][188]       [146][185][175]  [153][166][166][166][168]
  310. 311 [153]"  (NULL)notnotnot     verifyrnd*wait   printnotnot(NULL) contget        logon"
  311. 312 x[178]25:y[178]230:[141]124:x[178]250:y[178]190:[141]127:[142]
  312. 313 [141]146
  313. 314 [153]"sysM posfrewaitpos N"[166]16)"toandposnewnewfrefrefrewaitnewnewposand get   ";
  314. 315 [153]"wait syscos(NULL) (NULL)logwait                cos            logwait print#   ";
  315. 316 [153]"syswaitthen     waitfnlenlen            +              waitintprint#getsyspeekprint#waitabs";
  316. 317 [153]" sysrndmid$len(NULL)*wait               abs              waitgetprint#   ";
  317. 318 [153]"syswaitN frenewwaitfre M"[166]14)"+              abscos log";
  318. 319 [153]"wait   sysB   M    *newnewnewnewnew                  waitsgn   ";
  319. 320 [153]"wait   sysB    M   get     print#    sgn             wait rndverify *";
  320. 321 [153]"waitandandfrefrefre   waitint    poke     print# sys{$7b}{$7b}print# int            waitget  verify 
  321. 322 print"      [152]       [151] [146]B [146]B [190] [188][146] [188]           [172][146]   [149][184][154][164]";
  322. 323 print"[151]  [152] [158]{$7b}{$7b}[152] [158]{$7b}[152] [150] [151][146]{$7b}[150] [151][146]{$7b}[150] [151][162][162][162][162][162]   [146][180] [180]   [149]{$7f}  [146][188][185][146][184][154][185][184][183][163]   ";
  323. 324 print"[151] [158]{$7b}[152]      [150]     [146][175] [153][166][166] [187][149] [172][146] [153][166][187]  [172][149][146]{$7f}  [154][183]      [175][162][146][184]";
  324. 325 print"[151]  [152] [158]{$7b}{$7b}[152] [146]  [150][184][184][184][190]   [188][153][146][166]  [149] [146] [153][166]{$7c} [183][154][175][162] [149]  [154]    [164][146][184]
  325. 326 [153]"  print#    wait  printspc(spc(abs     waitint  verify wait   contpos    verify  cont poswaitfreusrandnewand
  326. 327 print" [175][185][162][162][185][175][153][166][166] [161]     [146][161]    [154][185]      [149]  [146]   [190]   [188]
  327. 328 [153]"cos      logwait   rnd*verify rnd waitint  contpos        verify  wait  then     waitfn
  328. 329 print"        [146][165]    [149] [169][172][146] [154][185]        [172][146][183][149]  [146]   [187]   [172]
  329. 330 [153]"        waitsgn    verify waitstep contcos       *waittab(  verify  wait    freverifynewwaitfre
  330. 331 print"[187]      [172][146]   [153][166][166][149] [153][146][166][154][190]      [172][146][163]    [149]  [146]   [153][166][166][166]
  331. 332 [153]" rnd*verifysgn+rnd*wait  printspc(spc(spc(spc(verify contint      *wait"[166]6)"verify  wait     printspc(spc(spc(spc(
  332. 333 print" [166][166][149][180][170][146]   [153][166][166][166][166][166] [154]       [146]    [153][166][166] [149]  
  333. 334 [153]"printspc(spc( verifysgn+wait"[166]8)"contget      +wait  printspc(spc({$7c} spc(verify  
  334. 335 print"   [180][170][146]    [153][166][166][166] [154][181]      [182][146]     [153][166][166][166][166][166][166]
  335. 336 [153]"   verifysgn+printspc(spc(wait spc(spc(   contsgn      +wait   printspc(spc(spc(spc(spc(
  336. 337 print"  [166][149][180][172][153][166][146]"spc(7)"[154]        
  337. 338 y[178]210:[129]x[178]250[164]220[169][171].5:y[178]y[171].5:[141]127:[130]x:[142]
  338. 339 [141]146
  339. 340 [153]
  340. 341 [129]z[178]1[164]2:[153]"  def  wait"[166]22)"       ":[130]
  341. 342 [153]"def     (NULL)wait    wait    rnd"[166]11)"       "
  342. 343 [153]"def      {$7f}    {$7f}    {$7f}wait"[166]16)"andandand
  343. 344 print"[150]                 [146]"spc(15)"[190]   [188]
  344. 345 [153]"clr             sys{$7b} sys{$7b} wait"[166]6)"cos   logwait   cos     log
  345. 346 print"[156]        [158] B       [146]"spc(6)"     [146]  [170]       [146][180]
  346. 347 [153]"clr pokewaitandLclr pokewaitandLclr  sys B   sys{$7b} pokewait{$7b} wait     abs     waitint +       waitsgn
  347. 348 print"[156] [146] [151][180][156] [146] [151][180][156]          [146][169]"spc(6)"     [146]   [187] [172][149] [187] [172]
  348. 349 [153]"clr        wait B   pokewait{$7b} waitstep stepNwaitint absM{$7f}posverify poswait      waitnewverify wait fre
  349. 350 print"[156]        [146] B    [146][169] [169]N[146][169]   {$7f}M{$7f}[149] [146]    [190]    [188]
  350. 351 [153]"clr sysandLclr pokewaitandLclr       waitstep    wait       verify wait   cos      log
  351. 352 print"[156] [158] [180][156] [146] [151][180][156]  [152]   [146][169] [151]NO[183][183]P[183][183][183][183]P[183][183][149] [151][146]PM[182]        [146][181]
  352. 353 [153]"clr        print#Q waitstep pokeN sgn  + contstep {$7f}pokewait+   + int        waitget
  353. 354 print"[156]        [152] [146][169] [151]N  [149]             [146] [182]        [146][181]
  354. 355 [153]"clr pokewaitandLclr sysandLclr  print#waitstep  pokeB verify  wait  contstep     {$7f}wait  verify  wait         
  355. 356 print"[156] [146] [151][180][156] [158] [180][156] [146][169]   [151]B[149]   [146] [154][169]       {$7f}[146] [149]   [146][182] [146][190][149]  [146][188] [146][181]
  356. 357 [153]"clr       wait"[166]8)"contstep         {$7f}wait"[166]6)"verify  step
  357. 358 print"[156] [129]   [156]  [146][169]  [169]NN[146][161] [154][169]           {$7f}[146] [181]MM{$7f}[149]  [146][169]
  358. 359 [153]"clr for   clr waitstep  stepNN waitgetcontstep             {$7f}wait {$7f}MMverify  
  359. 360 print"[156] [129]Q  [156][146][169]  [169]NN[146][169] [154][169]               {$7f}[146] {$7f}MM[149] 
  360. 361 [153]"clr for  waitstep      wait contstep                 {$7f}wait    
  361. 362 print"[156] [129] [146][169]       [154][169]                   {$7f}   
  362. 363 x[178]170:y[178]200:[141]128:x[178]233:y[178]89:[141]130
  363. 364 y[178]151:[129]x[178]230[164]135[169][171]1:[141]129:[130]x:[142]
  364. 365 [141]146
  365. 366 [153]:[153]:[153]
  366. 367 [153]" stop";:[129] z[178]1 [164] 39:[153]"to";:[130]
  367. 368 [153]"     (NULL)(NULL)  (NULL)(NULL)
  368. 369 print"    [206]  [205][206]  [205]
  369. 370 [153]"   (NULL)   (NULL)(NULL)   (NULL)
  370. 371 print"   [205]   [205][206]   [206]
  371. 372 [153]"    (NULL)  (NULL)(NULL)  (NULL)
  372. 373 print"     [205][206]  [205][206]
  373. 374 [153]"  sysstep";:[129] z[178]1 [164] 29:[153]" ";:[130]
  374. 375 [153]"{$7f}
  375. 376 print"   [146][169]  {$7f} [146][169]  {$7f} [146][169]  {$7f} [146][169]  {$7f} [146][169]  {$7f} [146][169]  {$7f} 
  376. 377 [129]z[178]1[164]4:[153]"   wait     wait     wait     wait     wait     wait     ":[130]
  377. 378 [153]"   {$7f}wait  step {$7f}wait  step {$7f}wait  step {$7f}wait  step {$7f}wait  step {$7f}wait  step 
  378. 379 print"[144][170] [158]";:for z=1 to 31:print" ";:next
  379. 380 print"[146] [144][180]
  380. 381 [153]"+ sys";:[129] z[178]1 [164] 31:[153]" ";:[130]
  381. 382 [153]"stop waitsgn
  382. 383 print"[170] [158]";:for z=1 to 31:print" ";:next
  383. 384 print"[146] [144][180]
  384. 385 [153]"  sys     stopwaitUCIUCIsys         stopwaitUCIUCIsys     
  385. 386 printspc(7)"[144]BWBBWB"spc(9)"BWBBWB
  386. 387 [153]"posposposposposposposJCKJCKposposposposposposposposposJCKJCKpospospospospospospospospospospospos";
  387. 388 y[178]170:x[178]50:[141]118:[151]53275,[194](53275)[176]192
  388. 389 y[178]155:x[178]125:[141]119:x[178]165:[141]115:x[178]225:y[178]210:[141]71:[142]
  389. 390 co[178]0:cs[178]11:[141]147
  390. 391 [153]"stop        poswaitfreusrtab("[166]16)"tab(usrfrenew        ";
  391. 392 [153]"       waitcos  ede ist in der ubahn  stoplog       ";
  392. 393 [153]"      waitcos  einer schnellen stadt.  stoplog      ";
  393. 394 [153]"     waitcos"[166]28)"log     ";
  394. 395 [153]"    waitcos"[166]30)"logcloseclosecloseclose";
  395. 396 [153]"   waitget"[166]6)"       "[166]19)"stopget   ";
  396. 397 [153]"   wait   *          "[166]9)"stop*"[166]10)"   ";
  397. 398 [153]"  waitget    (NULL)         "[166]10)"stop(NULL)"[166]9)"get  ";
  398. 399 [153]"  wait"[166]6)"M"[166]19)"M"[166]9)"  ";
  399. 400 [153]" waitget"[166]7)"M"[166]19)"M"[166]8)"get ";
  400. 401 [153]" wait"[166]9)"M"[166]19)"M"[166]8)" ";
  401. 402 [153]"waitget   forstep           {$7f}wait"[166]6)"contstep           {$7f}wait   stopget";
  402. 403 [153]"wait    for             wait"[166]6)"cont             
  403. 404 print"    [129] [146][169]   {$7f} [146][169]   {$7f} [146]"spc(6)"[154] [146][169]   {$7f} [146][169]   {$7f} 
  404. 405 [129]z[178]1[164]4:[153]"    for wait     for wait     for wait"[166]6)"cont wait      wait      ":[130]
  405. 406 [153]"    for (NULL)wait   step (NULL)wait   step wait"[166]6)"cont (NULL)wait   contstep (NULL)wait   contstep "
  406. 407 [153]"    for             wait"[166]6)"cont             
  407. 408 print"    [129]  [146]Q[129]       [146]Q[129]  [146]"spc(6)"[154]  [146]Q[154]       [146]Q[154]  
  408. 409 [153]"    for             wait"[166]6)"cont             
  409. 410 forz=1to2:printspc(6)"[144] [146]"spc(7)" [146]"spc(10)" [146]"spc(7)" ":next
  410. 411 y=162:x=60:gosub119:x=110:gosub115:x=250:y=214:gosub60:return
  411. 412 gosub146
  412. 413 printspc(16)"[158]M [175][162][175] N"spc(8)"[175][185][175]
  413. 414 [153]"         "[166]8)"syscos   logwait"[166]8)"cos   log
  414. 415 print"              [158][195][195][170]     [146][180][195][195][195]   [170]     [146][180]
  415. 416 [153]"         "[166]8)"sysrnd   *wait"[166]8)"rnd   *
  416. 417 printspc(16)"[158]N [184][185][146][184] [162][184][184][184][146][162]    [184][149] [146][184]
  417. 418 [153][166]8)"andnewfreusrfrewaitnewandsysN   B        wait    verify 
  418. 419 printspc(7)"[190]       [188][146]   [158]B[182]       [146][181]
  419. 420 [153][166]6)"+         waitsgn  sysB rnd verify{$7f}  poswaitusr
  420. 421 printspc(6)"[182]         [146][181]  [158]B  [183][149]{$7f} [146][180]  [144]NMNM
  421. 422 [153][166]6)"+         waitsgn"[166]7)"verify waitsgn stopN NM M
  422. 423 printspc(7)"[187] [172][149][161] [169] [172][146][183]"spc(11)"[144]M MN N
  423. 424 [153][166]8)"fre verifyget waitstepfre"[166]14)"stopMNMN
  424. 425 print" [129][169]               {$7f}[146] [169]               {$7f}[154][146][164][175][185][185]";
  425. 426 print" [129] [146]    [146]    [149][161] [146] [129] [146]    [146]  [146]    [154][146][175][185][162][129] [154][183][163][160][129] [154]   [129] [154]    ";
  426. 427 print" [129] [154]   [129] [154]   [129] [154]   [129] [154]   [129] [154] [129] [154]   [129] [154]   [129] [154]   [129] [154]   [129] [154]    ";
  427. 428 print" [129] [154]   [129] [154]   [129] [154]   [129] [154]   [129] [154] [129] [154]   [129] [154]   [129] [154]   [129] [154]  [164][129] [154][185][162][146][184][183]";
  428. 429 print" [129] [154]   [129] [154]   [129] [154]   [129] [154]   [129] [154] [129] [154]   [129] [154]   [129] [154][175][185][162][129] [154][146][183][163] [129] 
  429. 430 [153]"cont for                 cont for                 
  430. 431 print"[144][171][129]                 [144][146]{$7b}[129]                 [144][146][179]
  431. 432 [153]" for{$7f}               waitstep {$7f}               waitstep
  432. 433 print"[144][164][164][164]BWB[164][164][164][164][164][164][164]BWB[164][164][164][164][164]BWB[164][164][164][164][164][164][164]BWB[164][164][164][164][164][164]";
  433. 434 print"  NJCKN   N  JCK  N  JCK  N   NJCKN   N
  434. 435 [129] z[178]1 [164] 40:[153]"tab(";:[130]
  435. 436 [129]xh[178]250[164]0[169][171]2:y[178]65[170].1[172]xh:x[178]xh:[141]130:y[178]206:x[178]250[171]xh:[141]131:[130]:[142]
  436. 437 co[178]8:cs[178]8:[141]147
  437. 438 [153]
  438. 439 [153]"stopM     cont{$7f} {$7f}wait   stopM  im hotel  N    contstep waitstep"[166]6)"stopN";
  439. 440 [153]" M     cont{$7f} {$7f}wait   stopM  zimmer  N    contstep waitstep"[166]6)"stopN
  440. 441 print"  M     [154]{$7f} {$7f}[146]   [144]M[175][175][175][175][175][175][175][175]N    [154][169] [146][169]"spc(6)"[144]N
  441. 442 [153]"   M"[166]32)"N
  442. 443 print"    M"spc(14)"Q"spc(15)"[144]N
  443. 444 [153]"     M"[166]13)"B"[166]14)"stopN
  444. 445 printspc(6)"M[175][175][175][175][175][175][175][175][175][175][175][175]B[144][175][175][175][175][175][175][175][175][175][175][175][175][175]N
  445. 446 [153][166]6)"+"[166]11)"print#QBprint#Q"[166]12)"stopsgn
  446. 447 printspc(6)"[170]"spc(9)"JCC[177]CCK"spc(10)"[144][180]
  447. 448 [153][166]6)"+"[166]26)"sgn
  448. 449 print"  [193]   [144][170]"spc(7)"       "spc(12)"[144][180]   [193]
  449. 450 [129]z[178]1[164]2:[153]"   wait   stop+"[166]7)"       "[166]12)"stopsgn    ":[130]
  450. 451 [153]" verify   wait  stop+"[166]26)"sgn  verify   
  451. 452 printspc(6)"[144][170]"spc(6)"[149][172][162][162][162][162][162][162][162][162][162][162][162][187]"spc(7)"[144][180]
  452. 453 [153][166]6)"+ verifynewnewnewnew get    verify      verify waitget newnewnewnew  stopsgn
  453. 454 printspc(6)"[170]  [149]PO  [152][169]    [152]      [152] {$7f}[146]  [149]PO   [144][180]
  454. 455 [153][166]6)"NusrusrverifysqrLstopusrprint#step             {$7f}stopwaitusrverifysqrLstopusrusrusrM
  455. 456 print"     N [156][169]   [149]                 [156]    {$7f}[146] [144]M
  456. 457 [153]"    N clrstep    verify                 clr     {$7f}wait stopM
  457. 458 print"   N [156][169]     [146][169] [149]Q"spc(11)"Q [156]{$7f}      {$7f}[146] [144]M
  458. 459 [153]"  N clrstep";:[129] z[178]1 [164] 30:[153]" ";:[130]
  459. 460 [153]"{$7f}wait stopM
  460. 461 print" N"spc(36)"M
  461. 462 [153]"N
  462. 463 x=60:y=190:gosub124:x=205:y=150:gosub115:return
  463. 464 gosub146
  464. 465 print"       {$7f}
  465. 466 [153]"        {$7f}wait"[166]9)"step          {$7f}
  466. 467 print"[149]       [146] {$7f}{$7f}[146]"spc(7)"[169]            {$7f}
  467. 468 [153]"verify       wait"[166]9)"step              {$7f}sgnUI+
  468. 469 print"[149]       [146]           [156]            [146]  [180][202][203][170]
  469. 470 [153]"verify       wait           clr            wait  sgn(NULL)(NULL)+
  470. 471 print"[149] [144][146][186][175][149] [144][146][186][175][149] [146]           [156] [146]       [149]   [156] [146]  [180][206][205][170]
  471. 472 [153]"verify stopwait+ verify stopwait+ verify wait"[166]11)"clr wait       verify   clr wait  sgn  +
  472. 473 print"[149]       [146]"spc(11)"[156] [146]       [149]   [156] [146]    [144][180]
  473. 474 [153]"verify       wait"[166]11)"clr        verify   clr wait    stopsgn
  474. 475 print"[149]       [146]"spc(18)"[144]N   M    [180]
  475. 476 [129] z[178]1 [164] 34:[153]"tab(";:[130]
  476. 477 [153]"sgntab(tab(tab(tab(tab("[166]10)"newnewnewnewnewnewnewnewnewnew"[166]14)"stopsgn
  477. 478 printspc(9)"[169][146][169]    [146]    {$7f}{$7f}
  478. 479 [153][166]8)"stepwaitstep     wait     {$7f}{$7f}
  479. 480 print"[144]CCCCCQ";:for z=1 to 21:print" ";:next
  480. 481 print"[158][146]Q[144]CCCCCCCCCCCC";
  481. 482 print"          [144][146]UCI         [144][146]UCI   
  482. 483 [153][166]8)"step        {$7f}wait    stopBWB"[166]11)"pokestep  waitstep";
  483. 484 [153][166]7)"stepwaitstep stopJC wait    {$7f}{$7f}wait   stopJCK
  484. 485 printspc(6)"[169][146][169]     [146]     {$7f}{$7f}[146]"spc(13)"[151][169]    [146][169]
  485. 486 [153]"   Q";:[129] z[178]1 [164] 22:[153]" ";:[130]
  486. 487 [153]"syswaitQ
  487. 488 print"  [144]H  [144][146]UCI              [144][146]UCI  [144][146]T  [151][169]      [146][169]
  488. 489 [153]"     stopwaitBQB              stopwaitBQB  
  489. 490 print"     [144]JCK"spc(14)"JCK  [151][169]        [146][169]
  490. 491 [151]53275,[194](53275)[176]96
  491. 492 y[178]128:[129]xh[178]0[164]100[169]2:x[178]xh:[141]131:x[178]250[171]xh:[141]133:[130]xh:[142]
  492. 493 [141]146
  493. 494 [153]"{$7f}wait"[166]36)"def  step";
  494. 495 [153]" (NULL)wait"[166]13)"       "[166]15)"def   ";
  495. 496 [153]"  wait"[166]13)"       "[166]15)"def   ";
  496. 497 [153]"  wait"[166]13)"       "[166]12)" wait defstep   ";
  497. 498 [153]"  {$7f}wait"[166]31)"closedefstep stopwaitsqranddef ";
  498. 499 [153]"   {$7f}wait  wait"[166]27)"step def  stopwaitthen def ";
  499. 500 [153]"    {$7f} defstep{$7f} wait"[166]23)"step  def     ";
  500. 501 [153]"      def   wait"[166]20)"step{$7f}step   sys     ";
  501. 502 [153]"      {$7f}def  {$7f}forabswait"[166]17)"defstep      sys  stopwaitsqrandsys ";
  502. 503 [153]"       def   for {$7f}wait"[166]14)"step{$7f}cont   clr    sys  stopwaitthen sys ";
  503. 504 [153]"stopwaitfn      def   print#  wait"[166]11)"not  print#  cont stopwait{$7b}cont clr stopwaitsqrandclr sys     ";
  504. 505 [153]"stopwaitO      cont   print#  wait  andandand     spc(spc(spc(wait print#{$7f} cont   clr stopwaitthen clr sys  stopwaitsqrandsys ";
  505. 506 [153]"       cont stopwait{$7b}cont print#  wait stepwaitstep {$7f}{$7f}wait    stoplog cos  print#{$7f}cont stopwait{$7b}cont clr    sys  stopwaitthen sys ";
  506. 507 [153]"   stopwaitandL  cont   print# waitstepstepwaitstep   {$7f}{$7f}wait get"[166]7)"cont{$7f}  clr stopwaitsqrandclr sys     ";
  507. 508 [153]"   wait stopfn  cont stopwait{$7b}cont print#waitstep  waitQ   waitQ wait     pospospospos cont{$7f} clr stopwaitthen clr sys  stopwaitsqrandsys ";
  508. 509 [153]"       cont  waitstep   stopposwait   newwait  get  stepwaitstep  {$7f}{$7f}wait cont{$7f}clr    sys  stopwaitthen sys ";
  509. 510 [153]"stopwaitfn  stopwaitandL  cont waitstep"[166]11)"get step      {$7f}wait clr{$7f}   sys     ";
  510. 511 [153]"stopwaitO  wait stopfn  contwaitstep step    {$7f}wait"[166]7)"        wait  clr{$7f}  sys for  sys  ";
  511. 512 [153]"      waitstep stepwaitstep    {$7f}{$7f}wait    thenwait  stop+wait    sgnwait    clr{$7f} sys for  sys  ";
  512. 513 [153]"     waitstep stepwaitstepstoptoto toto {$7f}{$7f}wait   thenwait    printstep    {$7f}wait   clr{$7f}sys for  sys  ";
  513. 514 [153]"    waitstep  waitQ        waitQ wait  thenwait   printstepwaitstep    {$7f}{$7f}wait   sys{$7f}for  sys  ";
  514. 515 [153]"   waitstep              wait     printstepwaitstep"[166]6)"{$7f}{$7f}wait   for{$7f} sys  ";
  515. 516 [153]"  waitstep    stop wait"[166]8)" wait    wait print defwaitQprint        defwaitQprint wait   for{$7f}sys  ";
  516. 517 [153]" waitstep"[166]18)" wait print            wait    sys{$7f} ";
  517. 518 [153]"waitstep"[166]19)" wait  stop wait"[166]8)" onon"
  518. 519 y[178]205:x[178]20:[141]115:x[178]65:[129]y[178]200[164]150[169][171]1:x[178]x[170].5:[141]118:[130]y
  519. 520 [151]53275,[194](53275)[176]32:[142]
  520. 521 [141]146
  521. 522 [153]"(NULL)wait"[166]11)"
  522. 523 print" [223][146]"spc(10)"       "spc(19)"[169][223]";
  523. 524 print"  [223][146]"spc(9)"       "spc(17)" [169]  ";
  524. 525 print"   {$7f}[146]  [150][169]{$7f}[146]"spc(28)"    ";
  525. 526 print"    {$7f}[150][169]  {$7f} [146]"spc(25)"[169]    ";
  526. 527 print"[151]     [150]     [146]"spc(24)"[169]     ";
  527. 528 print"[151] [159] B [151] [150]     {$7f}[146]"spc(20)" [169]{$7f}[146][169]     ";
  528. 529 print"[151] [159] B [151] [150]      {$7f}[169]{$7f}[146]"spc(17)"   {$7f} [154] B  ";
  529. 530 print"[151] [159] B[160][151] [156]       [150]  {$7f}[146]   [161][146]    [150][161][146]"spc(6)"[169]     [154] B  ";
  530. 531 print"[151]     [156][165][158]  [156] [158]  [156]    [169][160][160][160][160]{$7f}[150][169]    {$7f}[169]{$7f}[169]      [154] B  ";
  531. 532 print"[151]     [156][165][158]  [156] [158]  [156] [158] [146][161][161][146] [172][187][172][187][146]  [188][190][188][190][150][169]  [129]           ";
  532. 533 print"[151] [159] B [151] [156]          [146] [172][187][172][187][146]  [188][190][188][190][156]   [129] [146]   [158]       ";
  533. 534 print"[151] [159] B [151] [156][165][146]   [146]   [158] [146][161][161][146]     [146]"spc(6)"[156][161][161][158] [129] [146]   [158]   [154] B  ";
  534. 535 print"[151] [159] B [151] [156][165][146]   [146]      [146]"spc(11)"[156]   [129]       [154] B  ";
  535. 536 print"[151]     [156]       [146]"spc(14)"[161][161][158] [129] [158]  [129] [146]   [154] B  ";
  536. 537 print"[151]     [156][165][129]  [156] [158]  [156] [146]"spc(14)"   [129] [158]  [129] [146]       ";
  537. 538 print"[151] [159] B [151] [156][165][129] Q[156] [158]  [156] [146]"spc(17)"[129]           ";
  538. 539 print"[151] [159][160]B [151] [156] [129]  [156]    [146]"spc(17)"[129]       [154] B  ";
  539. 540 print"[151] [159] B [151] [146]"spc(30)" [154] B  ";
  540. 541 print"[151]     [146]"spc(30)" [154] B  ";
  541. 542 forz=1to3:print"[129]   [151]  [146]"spc(30)"     ";:next
  542. 543 print"[129]   [151] [160]"
  543. 544 print"[129]   [151]  [145][145]"
  544. 545 x=80:y=200:gosub117:x=180:fory=190to210:x=x-1:gosub60:nexty:return
  545. 546 gosub146
  546. 547 print:print
  547. 548 printspc(32)"[144][162][162][162][162][162][162]
  548. 549 [153][166]10)"       "[166]15)"sys(NULL)   waitstepstopget
  549. 550 printspc(10)"       "spc(14)"[158][206]     [144][161]
  550. 551 [153]"   orlenlenlen^wait         "[166]7)"cont(NULL)lenlenright$    sys(NULL) peek (NULL)stopget
  551. 552 print"   B[176]CIB[146]"spc(16)"[154]B  B   [158]N     [144][161]
  552. 553 [153]"   BB BBwait"[166]15)"contstep waitfrefre {$7f}wait"[166]8)"stopget
  553. 554 print"   B[171]CKB[146]"spc(15)"[154]{$7f} [146][162][162] [146][169]"spc(8)"[144][161]
  554. 555 [153]"   BB closeBwait"[166]7)"step    {$7f}wait   stopLwait  sqrwait"[166]9)"get
  555. 556 print"   [173]CCC[189][146]"spc(7)" [146]     [146]"spc(16)"[144][161]
  556. 557 [153]"    pkwwait"[166]7)"step      {$7f}wait  forpospospospospospos"[166]7)"stopget
  557. 558 print"     [161]"spc(8)" [158][146]Q [146]   [158][146]Q [146] [129][161][146]N    M[182][146]"spc(6)"[144][161]
  558. 559 [153]"     get"[166]8)"{$7f}      waitstep forgetwait stoptoto totoforabswait"[166]6)"stopget
  559. 560 print"     [161]   [169]     {$7f}[144][186][146]  L[146]  [129][169]        {$7f}[146]     [144][161]
  560. 561 [153]"   step      {$7f}wait     wait"[166]6)"for syswaitQfor wait     syswaitQfor wait     stopget
  561. 562 print"    [146] [144][161]     [144][146][164] [164][164] [146]"spc(6)"[129]{$7f}  [156][169]        {$7f}
  562. 563 [153]"    wait stoptostep           {$7f}wait    stopLclrstepwaitstep    stopsqrwait   clr{$7f}{$7f}
  563. 564 print"  [169]        {$7f}[146]    [158][146]QQ [146]     [156] [146] [144][164][164][164] [164][164][164]  [156] 
  564. 565 [153]"step            {$7f}wait     wait    clrstep            {$7f}
  565. 566 print" [158][146]QQ [146][169]    {$7f} [158][146]QQ     [146][169]  [156][169]                {$7f}
  566. 567 [153]"    {$7f}wait    step    wait  stop wait    clr syswaitQQclr wait     stopZ    clr syswaitQQclr 
  567. 568 print"{$7f}            [146][169]"spc(7)"[156]                  
  568. 569 [153]"   stop wait"[166]6)" wait"[166]10)"clr{$7f}           clr     waitstep
  569. 570 printspc(25)"[144]  [146]"spc(7)"  
  570. 571 x[178]40:y[178]208:[141]77:y[178]50:[129]x[178]250[164]119[169][171]1:y[178]y[170].3:[141]130:[130]x
  571. 572 [129]x[178]120[164]60[169][171]1:y[178]y[171].4:[141]130:[130]x:[142]
  572. 573 co[178]4:cs[178]8:[141]147
  573. 574 [153]" ";:[129] z[178]1 [164] 38:[153]" ";:[130]:[153]
  574. 575 [153]" waitM"[166]36)"N  wait M"[166]10)"UCCCCCCCCCCCIwait"[166]11)"N  ";
  575. 576 [153]" wait  M"[166]9)"BgreengrocerBwait"[166]10)"N   ";
  576. 577 [153]" wait"[166]8)"stopB   JCCCCCCCCCCCKwait   stopB"[166]9)" ";
  577. 578 [153]" wait"[166]8)"stopB"[166]19)"B"[166]9)" ";
  578. 579 [153]" wait"[166]7)"stopC>QstopCQstopCQstopCQstopCsysQstopCsysQstopCC=C=CCQstop>C"[166]8)" ";
  579. 580 [153]" wait"[166]9)"Q Q Q Q sysQ Q UI UI Q"[166]10)" ";
  580. 581 [153]" wait"[166]9)"Q Q Q Q sysQ Q )) )) Q"[166]10)" ";
  581. 582 [153]" wait"[166]9)"Q Q Q Q sysQ Q JK JK Q"[166]10)" ";
  582. 583 [153]" wait"[166]9)"Q Q Q Q sysQ"[166]9)"Q"[166]10)" ";
  583. 584 [153]" wait"[166]9)"Q Q Q   sysQ"[166]9)"Q"[166]10)" ";
  584. 585 [153]" wait"[166]8)"Q  Q Q    sysQ"[166]8)"Q"[166]10)" ";
  585. 586 [153]" wait"[166]26)"Q"[166]11)" ";
  586. 587 [129]z[178]1[164]3:[153]" wait          "[166]28)" ";:[130]
  587. 588 [153]" wait"[166]38)"  wait"[166]13)"sysandandandandandand"[166]19)" ";
  588. 589 [153]" wait    sysandandandandandandandandsysstepwaitQQQQQsysstepwaitandandandandandandandandandandandandandandand     ";
  589. 590 [153]" wait   sysstepwaitQQQsys{$7f}wait   stepwaitQQQQQsysstepwaitstep step     {$7f}wait"[166]7)"M    ";
  590. 591 [153]" wait  sysstepwaitQQQQQsys{$7f}wait        waitstep stepwaitstepQQQQQ{$7f}{$7f}wait"[166]7)"M   ";
  591. 592 [153]" wait Nsys       wait"[166]9)"stepwaitstepQQQQQQQ{$7f}{$7f}wait"[166]7)"M  ";
  592. 593 [153]" waitN"[166]17)"sys           wait"[166]8)"M ";
  593. 594 [153]"wait ";:[129] z[178]1 [164] 38:[153]" ";:[130]:[143]   print
  594. 595 x[178]75:y[178]195:[141]124:x[178]170:y[178]210:[141]77:[142]
  595. 596 co[178]2:cs[178]14:[141]147
  596. 597 [153]"cont ";:[129] z[178]1 [164] 38:[153]" ";:[130]:[153]
  597. 598 [153]" wait"[166]38)"  wait"[166]11)"UCCCCCCCCCCCCCCIwait"[166]11)" ";
  598. 599 [153]" wait"[166]11)"Beisen schmiedtBwait"[166]11)" ";
  599. 600 [153]" wait"[166]11)"JCCCCCCCCCCCCCCKwait"[166]11)" ";
  600. 601 [153]" wait"[166]38)"  wait"[166]9)"(NULL)lenlenlenlenlenlenlenlenlenlenlenlenright$"[166]15)" ";
  601. 602 [153]" wait"[166]9)"peek   preise   peek"[166]15)" ";
  602. 603 [153]" wait"[166]9)"peek            peek"[166]15)" ";
  603. 604 [153]" wait"[166]9)"peek            peek"[166]6)"verify(NULL)"[166]8)" ";
  604. 605 [153]" wait"[166]9)"peek            peek"[166]5)"clr   wait"[166]7)" ";
  605. 606 [153]" wait"[166]9)"mid$lenlenlenlenlenlenlenlenlenlenlenlen(NULL)    clrstep   (NULL)wait"[166]6)" ";
  606. 607 [153]" wait     verifystep   {$7f}wait"[166]16)"clrstep     {$7f}wait      ";
  607. 608 [153]" wait    verifystep     {$7f}wait liststep    {$7f}wait defstep   {$7f}wait clrstep       {$7f}wait     ";
  608. 609 [153]" wait    verify Q Q Q liststep      {$7f}def     wait+clr         waitsgn    ";
  609. 610 [153]" wait    verify       list        def stopwaitQdef stopwaitQdef wait     verify wait"[166]8)" ";
  610. 611 [153]" wait    verify CCCCC list  UCCI  def     wait     verify wait"[166]8)" ";
  611. 612 [153]" wait    verify wait      list  B  B  def     wait     verify wait"[166]8)" ";
  612. 613 [153]" wait    verify wait      list  B  B  def     wait     verify wait"[166]8)" ";
  613. 614 [153]" wait    verify       list  JCCK  def     wait     verify wait"[166]8)" ";
  614. 615 [153]" wait   andverify juno  list        def     waitandandandandandverify waitandandandandand    ";
  615. 616 [153]" wait  N verify       list  miele stopwaitlog   cos   verifyUCposwaitCI   M   ";
  616. 617 [153]" wait N   stopusr   usr list        wait"[166]17)"M  ";
  617. 618 [153]" waitN"[166]11)"stopQ    Q"[166]19)"M ";
  618. 619 [153]"wait ";:[129] z[178]1 [164] 38:[153]" ";:[130]
  619. 620 [151]53275,[194](53275)[176]64:x[178]228:y[178]176:[141]133
  620. 621 [129]x[178]250[164]80[169][171]1:y[178]120[170].2[172]x:[141]122:[130]:[142]
  621. 622 co[178]0:cs[178]5:[141]147
  622. 623 [153]"stop                im kino                 ";
  623. 624 [129]z[178]1[164]6:[153]:[130]
  624. 625 [153][166]11)"stop(NULL)"
  625. 626 [153][166]25)"stopstepwaitstep"
  626. 627 [153][166]6)"stop(NULL)    and              wait"
  627. 628 [153][166]13)"stop             "
  628. 629 [153][166]16)"          "
  629. 630 [153][166]11)"(NULL)"[166]6)"peek )(NULL)   "
  630. 631 [153][166]18)"mid$lenlenlen   "
  631. 632 [153][166]22)"   "
  632. 633 [153][166]22)"   "
  633. 634 [153][166]21)"logposposposwaitcos
  634. 635 poke53275,peek(53275)or254
  635. 636 x=40:y=198:gosub115:x=130:y=200:gosub124:x=250:y=198:gosub60:return
  636. 637 gosub146:rem bau koala
  637. 638 print"   ";:for z=1 to 34:print"[175]";:next:print
  638. 639 printspc(2);:forz=1to18:print"[206][205]";:next:print
  639. 640 printspc(2);:forz=1to18:print"[205][206]";:next:print
  640. 641 print"   [183][183][183][183][183][149][208][208][183][183][183][183][183][183][183][183][183][183][183][183][183][208][183][214][183][207][183][183][183][183][183][183][183][183][183]
  641. 642 [153][166]8)"verify++"[166]13)"+(NULL) (NULL)sgn
  642. 643 printspc(8)"[149][170][170]"spc(13)"[170][205] [206][180]
  643. 644 [153]"andsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrwait"[166]5)"+close(NULL) sgn"
  644. 645 [153]"sqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrwait    +(NULL) (NULL)sgn"
  645. 646 [153]"andsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrwait   +(NULL) (NULL)sgn"
  646. 647 [153]"sqrandsqrandwait    verify++"[166]8)"sqrandsqrwait  + (NULL) sgn"
  647. 648 [153]"andsqrandsqrwait     stop(NULL)"[166]8)"andsqrandsqrwait +(NULL) (NULL)sgn"
  648. 649 [153]"sqrandsqrandwait   verify(NULL)   (NULL)"[166]6)"sqrandsqrandwait +(NULL) (NULL)sgn"
  649. 650 [153]"andsqrandsqrwait  verify(NULL)     (NULL)     andsqrandsqrwait + (NULL) sgn"
  650. 651 [153]"sqrandsqrandwait  stopusrusrusrusrusrusrusr     sqrandsqrandwait +(NULL) (NULL)sgn"
  651. 652 [153]"andsqrandsqrwait              andsqrandsqrwait +(NULL) (NULL)sgn"
  652. 653 [153]"sqrandsqrposwait              sqrandsqrandwait + (NULL) sgn"[166]8)"sqr"
  653. 654 [153]"andsqrandsqrwait"[166]14)"andsqrandsqrwait +(NULL) (NULL)sgn"[166]8)"andsqr"
  654. 655 [153]"sqrandsqrandwait"[166]14)"sqrandsqrandwait +(NULL) (NULL)sgn"[166]8)"sqrandsqr"
  655. 656 [153]"andsqrandsqrwait"[166]14)"andsqrandsqrwait + (NULL) sgn"[166]8)"andsqrandsqr";
  656. 657 [129]z[178]1[164]2:[153]"sqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrand";
  657. 658 [153]"andsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqr";:[130]
  658. 659 [153]"sqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrandsqrand";
  659. 660 x[178]60:y[178]160:[141]120:x[178]160:y[178]200:[141]77:x[178]215:[129]xh[178]160[164]80[169][171]10
  660. 661 [129]y[178]xh[164]xh[171]20[169][171]2:[141]117:[130]:[129]y[178]xh[171]20[164]xh[171]10:[141]117:[130]:[130]:[142]
  661. 662 [141]146
  662. 663 [153]
  663. 664 [153]"";:[129] z[178]1 [164] 33:[153]"and";:[130]:[153]
  664. 665 [153]"<><><><V><><><><><><><><><><><><>
  665. 666 print"[144]    [146][183]PN[183]MO[183][183][183][183][183][183][183][149]t[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  666. 667 [153]"     +M Nsgn"[166]7)"verifyB
  667. 668 print"     [170] V [180]"spc(7)"[149]s"spc(14)"[158][169]{$7f}
  668. 669 [153]"     +N Msgn"[166]6)"verifyN M"[166]12)"sysstep  {$7f}
  669. 670 print"     [170]M N[180]     [149]N   M"spc(10)"[158][169]    {$7f}[169]{$7f}
  670. 671 [153]"     + (NULL) sgn    stoptab(tab(tab(tab(tab(tab(tab("[166]8)"sysstep        (NULL)
  671. 672 print"     [170][206] [205][180]           "spc(7)"[158][169]          [223]";
  672. 673 print"[175][186][146]   [170][205] [206][180]
  673. 674 [153]"sqrandsqrwait  + V sgn     forstep{$7f}
  674. 675 print"[175][186][175][186][146] [170]N M[180]  [129][169]{$7f}[169]  {$7f}
  675. 676 [153]"sqrandsqrandsqrwait+M Nsgn forstep      {$7f}
  676. 677 print"[175][186][175][186][175][186][146] V [180][129][169]        {$7f}
  677. 678 [153]"sqrandsqrandsqrandsqrwait Mforstep          {$7f}
  678. 679 print"[175][186][175][186][175][186][175][186][146] [169][146][169][169][146][169]
  679. 680 [153]"sqrandsqrandsqrandsqrandsqrwait stepwaitstep
  680. 681 print"[175][186][175][186][175][186][175][186][175][186][146][169]
  681. 682 [153]
  682. 683 [153]"    andsqrandsqrandsqrwait   {$7f}         waitstep
  683. 684 print"   [175][186][175][186][175][186][175][186][146]   {$7f}       [146][169]
  684. 685 [153]"  andsqrandsqrandsqrandsqrandsqrwait   stopUCINusrusrusrusrPusrusrverifyfrefre
  685. 686 print" [175][186][175][186][175][186][175][186][175][186][175][186][146]  [144]BWB     [170]
  686. 687 [153][166]15)"mid$len(NULL)     +on"
  687. 688 x[178]220:y[178]140:[141]121:x[178]145:y[178]100:[141]124:[142]
  688. 689 [141]146
  689. 690 [153][166]7)"";:[129] z[178]1 [164] 32:[153]"to";:[130]:[153]
  690. 691 [153][166]6)"<><><><><><><><><><><><><><><><><>";
  691. 692 [153][166]7)"tab(tab(tab(tab(tab(tab(tab(tab(tab(PNMOtab(tab(tab(tab(tab(Otab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  692. 693 print"   [186][175][186][146]"spc(10)"[170]MN[180]     [180]
  693. 694 [153]"   andsqrandsqrandsqrwait"[166]7)"+NMsgn     sgn
  694. 695 print"   [186][175][186][175][186][175][186][146]"spc(6)"[170]MN[180]     [180]
  695. 696 [153]"   andsqrandsqrandsqrandsqrwait     +(NULL)(NULL)sgn     sgn
  696. 697 print"   [186][175][186][175][129][169]       [223][146][170][205][206][180]   [151][223]  [146][169]
  697. 698 [153]"   andsqrandsqrandfor andsqrpokewait(NULL)  for wait +(NULL)(NULL)sgnstop(NULL)   poke  wait
  698. 699 print"   [186][175][186][175][186][129] [186][175][146] [151]M [129] [151][146]M[170]MN[180][144][182][146]   [151][188][190][146]  [158][169]        {$7f}
  699. 700 [153]"   andsqrandsqrandfor andsqrwait  pokeMfor wait +NMsgnstopabswait    sysstep{$7f}step          {$7f}
  700. 701 print"[186][175][186][175][186][175][186][186][129] [176]CCC[174] [146] [170]MN[180][144][182][146]   [158][169]              {$7f}";
  701. 702 print"[175][186][175][186][175][186][175][186][129] B  CB [151][146]M[144]POM[180][144][182]
  702. 703 [153]"sqrandsqrandsqrandwait  for B   B         
  703. 704 print"[175][186][175][186][175][186][146]  [129] [171]CCC[179] UCCIUCI {$7f}[146]"spc(7)"[158][169]{$7f}
  704. 705 [153]"sqrandsqrandsqrandwait  for /CCCexp fre  frefre fre wait{$7f}{$7f}wait  waitstep  sysstep  {$7f}step{$7f}
  705. 706 print"[175][186][175][186][175][186][146] [129][169]               {$7f}[146]{$7f}{$7f} [146]  [158][169]      {$7f}
  706. 707 [153]"sqrandsqrandsqrandwait for stopwaitUCCCCCCCCCCCCCIfor wait {$7f} wait sysstep        {$7f}
  707. 708 print"[175][186][175][186][175][186][175][186][175][186][129]CCCCCCCCCCCQ[144][146]B[129] [151][146]M [129] [158][169]          {$7f}
  708. 709 [153]"sqrandsqrandsqrandsqrandsqrandsqrstopwaitCCCCCCCCCCCK  pokeMfor {$7f}sys           {$7f}";
  709. 710 [153]"andsqrandsqrandsqrandsqrandsqrandsqrwait"[166]10)"pokeM  sysstep              ";
  710. 711 [153]"sqrandsqrandsqrandsqrandsqrandsqrandsqrwait"[166]10)"pokeM   M
  711. 712 print"[175][186][175][186][175][186][175][186][175][186][175][186][175][186][146]"spc(10)"[151]M   M
  712. 713 [153][166]25)"M   M
  713. 714 y=195:forxh=47to225step5:x=xh:gosub65:x=xh-47:gosub131:nextxh:x=225
  714. 715 gosub77:forx=225to240:y=y+1:gosub131:nextx:return
  715. 716 gosub146
  716. 717 print"     [158]{$7f}{$7f}[146]"spc(12)" [146]"spc(13)"[169][146][169]
  717. 718 [153][166]6)"{$7f}{$7f}wait"[166]11)" wait"[166]12)"stepwaitstep
  718. 719 printspc(7)"{$7f}{$7f}[146]"spc(10)" [146]"spc(11)"[169][146][169]
  719. 720 [153][166]8)"{$7f}{$7f}wait"[166]9)" wait"[166]10)"stepwaitstep
  720. 721 printspc(9)"{$7f}{$7f}[146]"spc(8)" [146]"spc(9)"[169][146][169]
  721. 722 [153]:[153]
  722. 723 [153][166]8)"for*newnewnewnewnewnewnewnewnewnewnewnewnewrnd"
  723. 724 [153][166]8)"get(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)forwaitget"
  724. 725 [153]"verifynewnewnewrnd    forget(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)forwaitget"[166]6)"verify    abswait  *newnewnew";
  725. 726 [153]"cont   verifywaitget    forget(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)forwaitget"[166]6)"verify wait peek abswait  getcont   ";
  726. 727 [153]"   verifywaitget    forget(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)forwaitget   verifymid$=(NULL) waitlen(NULL)lenabswait  getcont   ";
  727. 728 [153]"  poke*verifywaitget    forget(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)forwaitget    verify(NULL) (NULL)wait peek abswait  getcont (NULL)(NULL)";
  728. 729 [153]"  poke*verifywaitget    forget(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)forwaitget    verifypeek     abswait  getcont(NULL) (NULL)";
  729. 730 [153]"poke***verifywaitget    forlognewnewnew newnewnewnewnew newnewnewwaitcos    verifypeek     abswait  get (NULL)cont ";
  730. 731 [153]"poke**waitstepverifyget"[166]8)"for wait      wait"[166]8)"verifyB     abswait  getwait{$7f}  ";
  731. 732 [153]"poke*waitstepverifystepwaitstep"[166]6)"* for wait      wait  verify waitget  * verifyB     abswait  {$7f}{$7f}wait{$7f} ";
  732. 733 [153]"pokewaitstepverifystepwaitstep     forstep       {$7f}waitnew waitnew verify waitgetforstep       {$7f}wait     verify{$7f}{$7f}wait{$7f}";
  733. 734 [153]"verifystepwaitstepstepwait    forstep  verify    for   {$7f}wait    step  verify    for   {$7f}wait    {$7f}verifywait{$7f}{$7f}";
  734. 735 [153]"waitstepstep wait"[166]6)"forgetverify+  sgn forgetwait"[166]8)"getverify+  sgn forgetwait"[166]6)" {$7f}verifywait{$7f}";
  735. 736 [153]"abs  wait"[166]6)"forgetverify+frefresgn forgetwait"[166]8)"getverify+frefresgn forgetwait"[166]6)"  waitint";
  736. 737 [153]"abs  wait     forstepwaitstepverifyPusrusrO for{$7f}{$7f}wait"[166]6)"stepwaitstepverifyPusrusrO for{$7f}{$7f}wait       waitint";
  737. 738 [153]"abs waitstep"[166]7)"verify+  sgn"[166]11)"+  sgn"[166]8)"{$7f} waitint";
  738. 739 [153]"absstep"[166]36)"(NULL)intonon"
  739. 740 [142]
  740. 741 [141]146:[153] [199](14)[199](158)[199](8)
  741. 742 [153][163]10)"valinmaleins":[153][163]18)"ist angesagt !"
  742. 743 [153][163]2)"lenoncept and design by atnurelius valder"
  743. 744 [153][163]13)"6551 peekockenau":[153][163]1)"(len) 1988 by (NULL)arkt & (NULL)echnik (NULL)erlag atnchr$"
  744. 745 [141]89:[141]140:[141]136:[141]140
  745. 746 [153]"load(NULL)ein (NULL)ame ist:"
  746. 747 [153][163]25)"*newwait *waitsin  *new":[153][163]25)"logwait  get sgn log"
  747. 748 [153][163]25)"*wait  get sgn *":[153][163]25)"logwaitnew logsinwait  logwaitnew"
  748. 749 x[178]90:[129]y[178]120[164]200:[141]60:[130]y
  749. 750 [141]56:[151]2044,36:[129]x[178]90[164]170:[141]65:[130]x:[141]77
  750. 751 [153][163]3)"sys(NULL)pielanleitung?":[153][163]3)"mid$a oder nein? (j/n)":s$[178]""
  751. 752 [161]s$:[139]s$[178]""[167]752
  752. 753 [139]s$[178]"mid$"[176]s$[178]"j"[167]:[137]811
  753. 754 [158]49420:[158]49312
  754. 755 [141]89:[141]229:ze[178]20:sa[178]14:az[178]1:ez[178]12[172]cf:uh%[178]0:ue%[178]1300[172]ct:fr%[178]0:bi%[178]1
  755. 756 [141]143:[145]rc[137]755,850
  756. 757 [141]256:ze[178]2:sa[178]29:bi%[178]2:fr%[178]1:[141]143:[145]rc[137]755,850
  757. 758 [141]282:ze[178]5:sa[178]6:bi%[178]3:fr%[178]0:[141]143:[145]rc[137]755,850
  758. 759 [141]313:ze[178]2:sa[178]11:bi%[178]4:fr%[178]1:[141]143:[145]rc[137]755,850
  759. 760 [141]339:ze[178]2:sa[178]18:bi%[178]5:fr%[178]1:[141]143:[145]rc[137]755,850
  760. 761 [141]89:[141]716:ze[178]9:sa[178]11:az[178]1:ez[178]16[172]cf:uh%[178]0:ue%[178]1200[172]ct:fr%[178]1:bi%[178]1:fe%[178]0
  761. 762 [141]143:[145]rc[137]761,850
  762. 763 az[178]1:ex[178][165]zu(3):[139]ex[177]2[167]:[141]802
  763. 764 [141]144:[145]rc[137]761,850
  764. 765 [139]ex[177]2[167]773
  765. 766 [141]464:ze[178]6:sa[178]8:bi%[178]2:fr%[178]1:[141]143
  766. 767 [151]53275,[194](53275)[175]159
  767. 768 [141]144:[145]rc[137]761,850
  768. 769 [141]493:ze[178]2:sa[178]14:bi%[178]3:fr%[178]1:[141]143
  769. 770 [151]53275,[194](53275)[175]223
  770. 771 [141]144:[145]rc[137]761,850
  771. 772 [141]521:ze[178]2:sa[178]17:bi%[178]4:fr%[178]1:[141]143:[145]rc[137]761,850
  772. 773 [141]437:ze[178]10:sa[178]15:bi%[178]5:fr%[178]1:[141]143:[145]rc[137]761,850
  773. 774 [158]49152:[158]49227:[141]89:[141]546:ze[178]3:sa[178]10:az[178]0:ez[178]18[172]cf:uh%[178]0:ue%[178]1500[172]ct
  774. 775 s$[178]"":[161]s$:[139]s$[178]""[167]775:[143] pause parkplatz
  775. 776 [158]49420:[158]49312
  776. 777 fr%[178]1:bi%[178]1:[141]143:[145]rc[137]774,850
  777. 778 [141]637:ze[178]8:sa[178]29:bi%[178]2:fr%[178]6:[141]143:[145]rc[137]774,850
  778. 779 az[178]1:ex[178][165]zu(4):[139]ex[177]2[167]:[141]808
  779. 780 [141]144:[145]rc[137]774,850
  780. 781 [139]ex[177]2[167]784
  781. 782 [141]662:ze[178]17:sa[178]29:bi%[178]3:fr%[178]2:[141]143:[145]rc[137]774,850
  782. 783 [141]689:ze[178]6:sa[178]29:bi%[178]4:fr%[178]0:[141]143:[145]rc[137]774,850
  783. 784 [141]622:ze[178]3:sa[178]5:bi%[178]5:fr%[178]1:[141]143
  784. 785 [151]53275,[194](53275)[175]1
  785. 786 [141]144:[145]rc[137]774,850
  786. 787 [141]89:[141]716:[153][199](19);"":[153][163]11)"ihr seid"
  787. 788 [153][163]12)"kurz vor":[153]"onon":[153][163]12)"dem ziel!":[129]xh[178]0[164]2000:[130]
  788. 789 [141]89:[141]716:ze[178]9:sa[178]11:az[178]2:ez[178]19[172]cf:uh%[178]0:ue%[178]500[172]ct:fr%[178]1:bi%[178]2:fe%[178]0
  789. 790 x[178]55:y[178]200:[141]118:y[178]150:x[178]247:[141]119
  790. 791 [141]143:[145]rc[137]787,787
  791. 792 [141]89:[141]716:[153][199](19);"":[153][163]11)"nur noch"
  792. 793 [153][163]12)"drei":[153]"onon":[153][163]12)"aufgaben!":[129]xh[178]0[164]2000:[130]
  793. 794 [141]89:[141]716:ze[178]9:sa[178]11:az[178]5:ez[178]19[172]cf:fr%[178]1:bi%[178]4
  794. 795 x[178]55:y[178]200:[141]118:y[178]150:x[178]247:[141]119:x[178]85:y[178]150:[141]120:[141]29:[141]39
  795. 796 [139]uh%[177][178]ue%[176]fe%[177]0[167]:x[178]50:y[178]180:[141]120:[129]xh[178]0[164]300:[130]:[151]53269,[194](53269)[175]223
  796. 797 [129]xh[178]0[164]900:[130]:[141]89:[141]134
  797. 798 [141]144:[145]rc[137]761,850
  798. 799 [141]89:[141]716:[153][199](19);"":[153][163]10)"aufloesung:"
  799. 800 [153][163]11)"stopuebung":[153][163]10)"macht den":[153][163]13)"meister!"
  800. 801 [129]xh[178]0[164]2500:[130]:[137]850
  801. 802 [141]365:ze[178]5:sa[178]26:bi%[178]2:fr%[178]0:[141]143
  802. 803 [151]53275,[194](53275)[175]63
  803. 804 [141]144:[145]rc[137]807,807
  804. 805 [141]390:ze[178]4:sa[178]15:bi%[178]3:fr%[178]0:[141]143:[145]rc[137]807,807
  805. 806 [141]412:ze[178]3:sa[178]1:bi%[178]4:fr%[178]6:[141]143
  806. 807 [142]
  807. 808 [141]573:ze[178]15:sa[178]28:bi%[178]3:fr%[178]7:[141]143:[145]rc[137]810,810
  808. 809 [141]596:ze[178]8:sa[178]12:bi%[178]4:fr%[178]6:[141]143
  809. 810 [151]53275,[194](53275)[175]191:[142]
  810. 811 [141]89:co[178]11:cs[178]11:[141]147:[153] [199](14 );
  811. 812 [153]:[153]:[153]
  812. 813 [153]"     EDE sysist auf der Suche nach dem Ge-
  813. 814 print" heimnis des Einmaleins. Um ihm zu hel-
  814. 815 [153]" fen, musst Du die Aufgaben im Bild der
  815. 816 print" Reihe nach richtig loesen. Wenn Du das
  816. 817 [153]" in der vorgegebenen Zeit schaffst,
  817. 818 print" kommst Du ein Bild weiter, so geht es
  818. 819 [153]" vom Land in die Stadt, wo die Loesung
  819. 820 print" des Einmaleins zu finden ist.
  820. 821 [153]" Eingegebene Zahlen lassen sich nicht
  821. 822 print" mehr korrigieren. Bei einem Fehler
  822. 823 [153]" springt der Fehlerteufel, wenn Du zu
  823. 824 print" langsam bist, erscheint die Schnecke
  824. 825 [153]" und EDE syswird zurueckgeschickt. Liegst
  825. 826 print" Du gut im Rennen, wird ein Uhu sicht-
  826. 827 [153]" bar.
  827. 828 print:print
  828. 829 printspc(6)"Viel Spass und Glueck!
  829. 830 [153]:[153]
  830. 831 [153][166]6)"(NULL)eiter mit (NULL)(NULL)atnlenval."
  831. 832 [161]s$:[139]s$[179][177]" "[167]832
  832. 833 [153][199](147)
  833. 834 [153]:[153]:[153]:[153]:[153][166]2)[199](14)"sys(NULL)aehle jetzt str$ein (NULL)evel."
  834. 835 [153]:[153][166]8)"(NULL)aste  p  fuer (NULL)rofi"
  835. 836 [153][166]8)"(NULL)aste  s  fuer schwer":[153][166]8)"(NULL)aste  m  fuer mittel"
  836. 837 [153][166]8)"(NULL)aste  l  fuer leicht"
  837. 838 [153][166]8)"(NULL)aste  e  fuer valinsteiger"
  838. 839 [161]s$:[139]s$[178]"p"[176]s$[178]"(NULL)"[167]:ct[178].9:cf[178]1:[137]845
  839. 840 [139]s$[178]"s"[176]s$[178]"(NULL)"[167]:ct[178]1.2:cf[178].8:[137]845
  840. 841 [139]s$[178]"m"[176]s$[178]"(NULL)"[167]:ct[178]1.2:cf[178].5:[137]845
  841. 842 [139]s$[178]"l"[176]s$[178]"(NULL)"[167]:ct[178]1.6:cf[178].5:[137]845
  842. 843 [139]s$[178]"e"[176]s$[178]"val"[167]:ct[178]5:cf[178].5:[137]845
  843. 844 [137]839
  844. 845 [153]:[153]:[153]:[153]:[153][166]2)"(NULL)aehle jetzt str$eine (NULL)eihe, von 2 bis"
  845. 846 [153][166]2)"19 oder 0 fuer ungeortnet.":cr[178]0
  846. 847 [141]148
  847. 848 [139]s$[178]"1"[167]:cf[178].5:cr[178]10:[141]148
  848. 849 cr[178]cr[170][197](s$):[137]754
  849. 850 co[178]11:cs[178]11:[141]147
  850. 851 [139]cl[177][178]3[167]:[153]:[153]" valstr$val sysempfiehlt:":[153]" (NULL)aehle ein niedrigeres (NULL)evel."
  851. 852 [139]cm[177][178]3[167]:[153]:[153]" valstr$val sysempfiehlt:":[153]" (NULL)ebe noch die"cx"'er (NULL)eihe."
  852. 853 cl[178]0:cx[178]0:cm[178]0:[129]n[178]0[164]9:ce(n)[178]0:[130]:[137]834
  853. 854 [128]
  854.